00100	< FILE NAME='INSTS'
00200	<FOUR INSTRUMENTS FOR ELEMENTRY COMPUTER MUSIC
00300	
00400	INSTRUMENT TOOT;
00500	OSCIL[10](P4,10*MAG/P2,P5);
00600	COSCIL(U1,P3*MAG,P6);<P6 IS TONE COLOR FOR 'TOOT'
00700	OUTA←OUTA+U2;END;
00800	
00900	INSTRUMENT TOOT2;
01000	OSCIL[10](P4,10*MAG/P2,P5);
01100	COSCIL(U1,P3*MAG,P6);
01200	OUTA←OUTA+U2;END;
01300	
01400	INSTRUMENT TOOT3;
01500	OSCIL[10](P4,10*MAG/P2,P5);
01600	COSCIL(U1,P3*MAG,P6);
01700	OUTA←OUTA+U2;END;
01800	
01900	INSTRUMENT  TOOT4;
02000	OSCIL[10](P4,10*MAG/P2,P5);
02100	COSCIL(U1,P3*MAG,P6);
02200	OUTA←OUTA+U2;END;